home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / conn173c.zip / R-PCCONN.MRG < prev    next >
Text File  |  1992-04-24  |  2KB  |  59 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS:  Date 9-1-1991  Size 151907 bytes
  4. * ------------[ Created 04-24-1992 12:37:43 ]------------
  5. * REPLACING old line(s) by new
  6. 175 GOSUB 5344
  7.     CALL CountLines (MaxEntries)
  8.     REDIM ZCategoryName$(MaxEntries),ZCategoryCode$(MaxEntries),_
  9.           ZCategoryDesc$(MaxEntries)
  10.     CALL InitFMS (ZNumCategories)
  11.     ZMaxMsgLines = ZMaxMsgLinesDef
  12.     IF (NOT ZLocalUser) AND (NOT ZSubBoard) THEN _
  13.        CALL OpenCom (ZModemInitBaud$,",N,8,1")
  14.     IF NOT ZSubBoard THEN _
  15.        CALL SetEcho (ZDefaultEchoer$)
  16.     ZNodeWorkFile$ = ZNodeWorkDrvPath$ + _
  17.                       "NODE" + _
  18.                       ZNodeFileID$ + _
  19.                       "WRK"
  20.     ZSecsPerSession! = ZMinsPerSession * 60!
  21.     LogIndex = 1                                                     ' TC090119
  22.     IF NOT ZLocalUserMode THEN _
  23.        IF NOT ZExitToDoors THEN _
  24.           GOTO 180 _
  25.        ELSE IF NOT ZLocalUser THEN _
  26.                GOTO 180
  27.     ZLocalUser = ZTrue
  28. * ------[ first line different ]------
  29.     ZBPS = -7                                                        ' CONN173C
  30.     ZBaudTest! = 9600
  31.     ZEightBit = ZTrue
  32.     ZSnoop = ZTrue
  33. '   LogIndex = 1                                                     ' TC090119
  34.     IF ZExitToDoors THEN _
  35.        CALL AMorPM : _
  36.        CALL ReadProf : _
  37.        GOTO 410
  38.     GOSUB 178
  39.     GOTO 345
  40. * REPLACING old line(s) by new
  41. 822 LOCATE 24,1
  42.     CALL TakeOffHook
  43.     ZLocalUser = ZTrue
  44.     ZSnoop = ZTrue
  45. * ------[ first line different ]------
  46.     ZBPS = -7                                                        ' CONN173C
  47.     CALL CommInfo
  48.     CALL Muzak (2)
  49.     IF NOT ZEscapeInsecure THEN _
  50.        GOTO 345
  51.     ZActiveUserName$ = ZSysopPswd1$ + " " + ZSysopPswd2$
  52.     ZFirstName$ = ZSysopPswd1$
  53.     ZLastName$ = ZSysopPswd2$
  54.     ZUserLogonTime! = TIMER
  55.     ZTimeLoggedOn$ = TIME$
  56.     ZLinesPrinted = 0
  57.     ZSysop = ZTrue
  58.     GOTO 457
  59.